home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
recent
/
iib122.lha
/
IIB
/
Threads
/
Additional
/
IARexx.lha
/
sharp2quick.irx
< prev
next >
Wrap
Text File
|
1997-05-19
|
1KB
|
60 lines
/*
** $VER: Sharp2Quick.irx 0.002 (04 May 1997) **
**
** (c) 1997 Ernesto Poveda Cortes
**
** PROGRAMNAME:
** Sharp2Quick.irx
**
** FUNCTION:
** Make Quick Edges from Sharp ones
**
** $HISTORY:
**
** 04 May 1997 : 000.002 : Working subrelease
*/
OPTIONS RESULTS /* enable return codes */
ADDRESS 'Imagine.1'
OPTIONS FAILAT 6 /* ignore warnings */
SIGNAL ON SYNTAX /* ensure clean exit */
NL = '0A'x
/* ------------------------------------------------------------------- */
IMAGINETOFRONT
IF ~EXISTS('LIBS:rexxreqtools.library') THEN DO
NOTIFY 'Please install the rexxreqtools.library into your LIBS: directory'
NOTIFY 'It is available from /pub/aminet/util/rexx/RexxReqTools.lha'
exit
END
CALL ADDLIB('rexxreqtools.library',0,-30,0)
call rtezrequest("MakeQuick.irx - 1997 Ernie",'_Good|_Exit','U have launched...','rt_reqpos = reqpos_centerscr')
if ~rtresult then call BYE
EDGEMODE
PICK SHARP
MAKEQUICKEDGES
OBJECTMODE
BEEP
/* ------------------------------------------------------------------- */
BYE:
ActivateImagine
DISPLAYREXXPTR OFF
EXIT
SYNTAX:
NOTIFY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
ActivateImagine
DISPLAYREXXPTR OFF
EXIT